﻿Imports Microsoft.Office.Core.XlConstants
Imports Microsoft.Office.Interop.Excel.XlThemeColor
Public Class ThisAddIn
    'Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
    '    Return New Ribbon()
    'End Function
    Private Sub ThisAddIn_Startup() Handles Me.Startup

    End Sub

    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

    End Sub

    Private Sub Application_SheetChange(ByVal Sh As Object, ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Application.SheetChange
        If My.Settings.ETCActive = True Then
            If My.Settings.Style = "" Then
                MsgBox("No Style is defined for tracking changes. Select a style from the Track Changes Ribbon option.")
            Else
                Target.Style = My.Settings.Style
            End If
        End If
    End Sub
End Class
